Public Class WmoCrawler
    Inherits WebCrawler

    Public Sub New(ByRef AccessProgressNotify As WowCrawler.DataAccessProgressNotify)
        MyBase.new(AccessProgressNotify)
    End Sub

    Public Overrides Function Crawl(ByRef RaidInfo As RaidData, Optional ByVal IsFullUpdate As Boolean = True) As Boolean
        If Mid(RaidInfo.BaseUrl, Len(RaidInfo.BaseUrl), 1) = "/" Then
            RaidInfo.BaseUrl = Mid(RaidInfo.BaseUrl, 1, Len(RaidInfo.BaseUrl) - 1)
        End If

        ProgNotify.Notify("Crawl - not support yet")
        Return True
    End Function

End Class
